PROGRAM listingClient;

USES
	 Clients, Types;


PROCEDURE listing(collectionClient : TTabClient);															//Définition du nom de notre procédure ainsi que ses paramètres en entrée-sortie (changé vu qu'on a pas de sortie)
Var
	i:INTEGER;
Begin
	i:=1;
	WHILE(i<=collectionClient.nbelement) DO
		begin
			afficheclient(collectionClient.tabclient[i].ID,collectionClient);						//Listing complet des clients
			WRITELN('**********************************************');
			i:= i+1;
		end;
end;

Var

client : TTabClient;

BEGIN
	client.tabclient[1].ID:= 123;
	client.tabclient[1].nom:= 'Petit';
	client.tabclient[1].prenom:= 'Benoit';
	client.tabclient[1].naissance:= '15.05.1991'; 
	client.tabclient[1].politesse:= 'Monsieur';
	client.tabclient[1].adresse:= 'Chemin du Secheron 5';
	client.tabclient[1].npa:= '1132';
	client.tabclient[1].localite:= 'Lully';
	client.tabclient[1].telephone:= '0796208831';

	client.tabclient[2].ID:= 789;
	client.tabclient[2].nom:= 'Plug';
	client.tabclient[2].prenom:= 'Johann';
	client.tabclient[2].naissance:= '12.05.1992';
	client.tabclient[2].politesse:= 'Monsieur';
	client.tabclient[2].adresse:= 'Rte de l''Eglise 2';
	client.tabclient[2].npa:= '1064';
	client.tabclient[2].localite:= 'Etoy';
	client.tabclient[2].telephone:= '0794997979';
	
	client.nbelement:=2;
	
	listing(client);
END.

